﻿Public Class FormAssemblingRecord
    Dim objProdInfo As New clsProdInfo
    Private Sub FormAssemblingRecord_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        setDgvData()
    End Sub

    Public Sub setDgvData()
        Dim dt As DataTable = objProdInfo.getProdInfoListByStatus("2")
        dgv.AutoGenerateColumns = False
        dgv.DataSource = dt
    End Sub
End Class